(ns transformationframework.functions)

(defn sort-by-list 
  "Sort collection (2nd argument) in order provided by first argument"
  {:added "TransformationFramework 1.0"}
  [list seq]
  (sort-by (zipmap list (iterate inc 1)) seq))